home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_c
/
cug231
/
new.st
< prev
next >
Wrap
Text File
|
1987-06-17
|
256b
|
28 lines
Class Acl
| vara |
[
new
vara <- 'correct'
|
printa
vara print
]
Class Bcl :Acl
| varb |
[
new
varb <- 'correct'
|
printb
varb print
]
Class Main
[
main | i |
i <- Bcl new .
i printb .
i printa
]